home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 65.zip
/
BS1 part 65
/
Art Department Pro 2.15 d1.adf
/
ZapDPI
/
ReDPI.adpro
< prev
next >
Wrap
Text File
|
1992-05-12
|
422b
|
26 lines
/*
This program calls ZapDPI and forcibly changes dpi chunks to DPI.
*/
OPTIONS RESULTS
ADDRESS "ADPro"
NL = '0A'X
GETFILES '"Select IFF files to UnZap:"'
IF RC ~= 0 THEN DO
/* No selection */
EXIT
END
LIST = ADPRO_RESULT
COUNT = WORDS(ADPRO_RESULT)
I = 1
DO WHILE (I <= COUNT)
ADDRESS COMMAND "ZAPDPI -DPI" WORD(LIST,I)
IF RC ~= 0 THEN OKAY1 "Error while changing:" || NL || WORD(LIST,I)
I = I + 1
END